home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / c128 / c68.d64 / mini sprite edit (.txt) < prev    next >
Commodore BASIC  |  1995-08-08  |  242b  |  11 lines
  1. 10 PRINT"[147]";
  2. 20 FOR I=1TO21:
  3. 30 FOR Z=0TO23:PRINT".";:NEXT Z:PRINT
  4. 40 NEXT I:PRINT"GOTO 100[145]":END
  5. 100 PRINT"";:CLR
  6. 110 FORI=0TO2:A=0
  7. 120 FOR N=0 TO 7:A=A-2^(7-N)*(PEEK(1024+40*X+N+8*I)=42):NEXT
  8. 130 A(I+1)=A
  9. 140 NEXT:PRINTTAB(24)"              [157][157][157][157][157][157][157][157][157][157][157][157][157][157]"A(1)A(2)A(3):X=X+1
  10. 150 IFX<21THEN110
  11.